home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / misc / Fudgit233.lha / Source / examples / fib2.ft < prev    next >
Encoding:
Text File  |  1993-12-14  |  212 b   |  17 lines
  1. # Other versions to test procedures
  2. cmode
  3.     proc fib3(x) {
  4.         for(a=0,b=1;b<x;c=b,b=b+a,a=c) {
  5.             print b, "\n"
  6.         }
  7.     }
  8.     proc fib2(x) {
  9.         auto a,b,c
  10.  
  11.         for(a=0,b=1;b<x;c=b,b+=a,a=c) {
  12.             print b, "\n"
  13.         }
  14.     }
  15. fmode
  16.  
  17.